home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48hor2 / fxprices.src < prev    next >
Text File  |  1992-08-18  |  2KB  |  80 lines
  1. %%HP: T(3)A(D)F(.);
  2. @ FXPRICES by Chris Tham
  3. DIR
  4.   GO
  5.     \<< CMENU TMENU
  6.     \>>
  7.   CMENU { MKC RMC { "USD" {
  8.     \<< "USD" CIN
  9.     \>>
  10.     \<< "USD" COUT
  11.     \>> DROP } } { "AUD" {
  12.     \<< "AUD" CIN
  13.     \>>
  14.     \<< "AUD" COUT
  15.     \>>
  16.     \<< "AUD" CSTO
  17.     \>> } } { "DEM" {
  18.     \<< "DEM" CIN
  19.     \>>
  20.     \<< "DEM" COUT
  21.     \>>
  22.     \<< CINV "DEM" CSTO
  23.     \>> } } }
  24.   bUSD '1_USD'
  25.   oUSD '1_USD'
  26.   bAUD '.779_USD'
  27.   oAUD '.7795_USD'
  28.   bDEM '.550660792952_USD'
  29.   oDEM '.550812448361_USD'
  30.   MKC
  31.     \<< \-> A B C
  32.       \<< C$ 5 { { "
  33. A + C$ 7 " { \<< "
  34. + A + C$ 11 " CIN \>> \<< "
  35. + A + C$ 11 " COUT \>> \<<  +
  36.         IF C
  37.         THEN " CINV" +
  38.         END C$ 1 "
  39. + A + C$ 1 "
  40. + "CSTO \>> } } }" + STR\-> CMENU SWAP + 'CMENU' STO B
  41.         IF C
  42.         THEN CINV
  43.         END A CSTO { GO } ORDER GO
  44.       \>>
  45.     \>>
  46.   RMC
  47.     \<< \-> M
  48.       \<< CMENU LIST\-> \-> N
  49.         \<< 1 N
  50.           START N ROLL
  51.             IF DUP \->STR M POS
  52.             THEN DROP 'N' DECR DROP
  53.             END
  54.           NEXT N \->LIST 'CMENU' STO M CBO PURGE PURGE GO
  55.         \>>
  56.       \>>
  57.     \>>
  58.   CIN
  59.     \<< BO SWAP UVAL *
  60.     \>>
  61.   COUT
  62.     \<< SWAP NEG SWAP BO CONVERT
  63.     \>>
  64.   CINV
  65.     \<< C\->R INV SWAP INV R\->C
  66.     \>>
  67.   CSTO
  68.     \<< CBO \-> P B O
  69.       \<< '1_USD' P RE OVER * B STO P IM SWAP * O STO
  70.       \>>
  71.     \>>
  72.   CBO
  73.     \<< "'b" OVER + "'" + STR\-> SWAP "'o" SWAP + "'" + STR\->
  74.     \>>
  75.   BO
  76.     \<< OVER 0 \>= "1_b" "1_o" IFTE SWAP + STR\->
  77.     \>>
  78.   USD '1_m'
  79. END
  80.